﻿Public Class MuhCekIptali
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Start("Çek İptali", "İptal edilecek çekin numarasını girin.")
				AddText("@ceknoyeni", "Çek no.", "nl", "", "Çek numarasını girmek zorundasınız.")
				StartBody()
				AddDate("iptaltar", "İptal tarihi", "nl", Today.YMD)
				AddDataWindow()
			Case EventType.ValidateForm
				Rs = Muhasebe.OdemeEmri.CekOku(Remote, Input("ceknoyeni"))
				If Check("ceknoyeni", Rs.EOF, "Çek kaydı bulunamadı.") Then Exit Sub
				DataWindow.AddGroup("Çek Bilgileri", "ceknoyeni*;tarih*;onay*;cekkod*;cekno*;odeemrino*;miktar*")
				DataWindow.AddGroup("Alacaklı Bilgileri", "kimlik*;kime*;adres*;tel*")
				DataWindow.AddGroup("Bozdurulma/İptal", "iptalkod*;boztar")
				DataWindow.AddGroup("Maaş Bilgileri", "ay*;ayeki*;donem*;yil*")
				DataWindow.AddGroup("Fatura Bilgileri", "fatura*")
				DataWindow.AddGroup("Kayıt Bilgileri", "islemtar*;kaykul*;rowid*")
				'DataWindow.AddGroup("", "bankalistno;yazdir;bankakodu")
				DataWindow.Recordset = Rs
				If IsNull(Rs("iptalkod"), "") = "I" Then
					Warning("Bu çek zaten iptal edilmiştir.")
					Help = "Bu çek zaten iptal edilmiştir."
				Else
					Help = "Kaydet butonuyla çeki iptal edebilirsiniz."
				End If
				Buttons.Show("Save.Reset")
				e.Result = True
			Case EventType.Save
				If Not Confirm("Bu çeki iptal etmek istediğinize emin misiniz?") Then Return
				Muhasebe.OdemeEmri.CekIptal(Remote, Input("ceknoyeni"), Input("iptaltar"))
				Info("Çek iptal edilmiştir.")
				ResetForm()
		End Select
	End Sub

End Class
